home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 8 / 008.d81 / r & f boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  33 lines
  1. 100 rem   what is r & f
  2. 200 d$=""
  3. 300 poke53281,5:poke53280,2:print"[144][147]";
  4. 400 printchr$(14)"[147][144]  [202]ust what is a [210][201][195][200][160]&[160][198][193][205][207][213][211][160][196][201][211][203]?":print
  5. 500 print"[215]ell, it's a double-sided unprotected":print
  6. 600 print"disk full of programs written by one of":print
  7. 700 print"our [204][207][193][196][211][212][193][210] subscribers.":print:print
  8. 800 print"  [212]he disks may deal with some theme or":print
  9. 900 print"they may be a collection of assorted  ":print
  10. 1000 print"programs which have nothing in common ":print
  11. 1100 print"(except for the author)."
  12. 1200 printd$;:print"<press a key>":poke198,0:wait198,1
  13. 1300 print"[147]  [197]ach disk in the [210] & [198] series   ":print
  14. 1400 print"sells for $16.95.  [217]ou may order as many"
  15. 1500 print"as you like.  [201]f you have a printer, ":print
  16. 1600 print"you can print out the order form and ":print
  17. 1700 print"just check off what you want to order.":print
  18. 1800 print"[201]f you don't have a printer, you can  ":print
  19. 1900 print"send us a paper note to place your":print
  20. 2000 print"order."
  21. 2100 printd$;:print"<press a key>":poke198,0:wait198,1
  22. 2200 print"[147]      1. [210][213][206] the [210]ich & [198]amous ads"
  23. 2202 print"      2. [210]eturn to [204][207][193][196][211][212][193][210]"
  24. 2204 print:print"[215]hich ? ";
  25. 2206 poke198,0:wait198,1:getk$
  26. 2208 ifk$<>"1"andk$<>"2"then2206
  27. 2210 ifk$="1"thenf$="ad.menu"
  28. 2212 ifk$="2"thenf$="hello"
  29. 2214 printk$
  30. 2220 print"         .... loading ...."
  31. 2230 print"load"chr$(34);f$;chr$(34)",8":print"run"
  32. 2232 poke631,13:poke632,13:poke198,2:end
  33.